ChDir procedure

  DECLARATION:  ChDir(S : String);

      PURPOSE:  Changes the current directory.

         UNIT:  System

      REMARKS:  Changes the current DOS directory to S.

                NOTE: With {$I-}, errors are returned through IOResult

      EXAMPLE:  Begin    { Gets directory name from command line }
                   {$I-}
                   ChDir(ParamStr(1));
                   If IOResult <> 0 then
                      Writeln('Could not find/change Directory');
                End.